From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Jun 1993 01:32:42 +0000 (+0000)
Subject: (safe-documentation): Don't crash on byte-compiled macro.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95497
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d2e1218f850e048d76bdce6808a10079f6531ff4;p=emacs.git

(safe-documentation): Don't crash on byte-compiled macro.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 6c2568eca55..f147b0b182a 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -329,10 +329,10 @@ Will return nil instead."
     (setq function (if (fboundp function)
 		       (symbol-function function)
 		     0)))
+  (if (eq (car-safe function) 'macro)
+      (setq function (cdr function)))
   (if (not (consp function))
       nil
-    (if (eq (car function) 'macro)
-	(setq function (cdr function)))
     (if (not (memq (car function) '(lambda autoload)))
 	nil
       (setq function (nth 2 function))